*------------------------------------------------------------------------------*
				*** FIGURE S9. TRENDS IN PM10 BY ELECTION DATES ***
*------------------------------------------------------------------------------*

use "${tempdata}kreise_complete_all.dta", clear

keep if samplePM10_allcontrols == 1

*------------------------------------------------------------------------------*

*Generate average PM10 by election dates
egen avPM10w = mean(PM10_30km_10ug), by(election_date)

*------------------------------------------------------------------------------*

collapse avPM10w, by( election_date)

*------------------------------------------------------------------------------*

***Line graph
tsset  election_date , daily
graph twoway tsline avPM10w , tlabel(,format(%tdCY)) graphregion(color(white)) ///
		xtitle("Year") ytitle("PM10 (10{&mu}g/m{sup:3})")

graph export "${outputs}figure_S9.png", replace


*------------------------------------------------------------------------------*

clear

exit
